﻿Imports Microsoft.VisualBasic
Imports System.Collections.ObjectModel

Public Class UserType

    Public Property UserId As Guid
    Public Property ProviderUserKey As String
    Public Property UserName As String
    Public Property Rights As New Collection(Of String)

    Public Sub New()

    End Sub

    Public Sub New(UserId As Guid)
        Me.UserId = UserId
    End Sub

    Public ReadOnly Property Text As String
        Get
            Return Me.ToString
        End Get
    End Property

    Public Overrides Function ToString() As String
        If Me.ProviderUserKey = "" Then
            Return Me.UserName
        Else
            Return Me.UserName
        End If
    End Function

End Class


